runrandForAnalysis <- function(arrayData,rfsize,nvar2try, rowNames, rowClasses, Rfolder)
{
 # Random Forest library
 library(randomForest)
 # My functions
 setwd('Rfolder')
 source("mydataFrame")
 source("myRandomForest")
 source("tuneRandomForest")

 myData <- mydataFrame(arrayData,rowNames, rowClasses)
 myData.rf <- tuneRandomForest(myData,nvar2try)
 

 
 return(myData.rf)

}
